Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/rtdc.zip/TESTUNI2.DFM/TESTUNI2.txt

Text File | 1995-09-03 | 3KB | 183 lines

object Form1: TForm1
  Left = 328
  Top = 169
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 306
  ClientWidth = 414
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  OnCreate = FormCreate
  TextHeight = 16
  object Label3: TLabel
    Left = 124
    Top = 199
    Width = 61
    Height = 13
    Caption = '00:00:00'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 299
    Top = 199
    Width = 62
    Height = 13
    Caption = '00:00:00'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 8
    Top = 46
    Width = 393
    Height = 123
  end
  object Label7: TLabel
    Left = 26
    Top = 59
    Width = 80
    Height = 16
    Caption = 'Recordcount:'
  end
  object Label8: TLabel
    Left = 111
    Top = 59
    Width = 65
    Height = 13
    AutoSize = False
    Caption = '0'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 43
      Height = 16
      Caption = 'Source'
    end
    object Label2: TLabel
      Left = 200
      Top = 8
      Width = 67
      Height = 16
      Caption = 'Destination'
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 8
      Width = 129
      Height = 24
      ItemHeight = 16
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 280
      Top = 8
      Width = 97
      Height = 24
      TabOrder = 1
      OnChange = Edit1Change
    end
  end
  object Button1: TButton
    Left = 20
    Top = 192
    Width = 93
    Height = 33
    Caption = 'TBatchMove'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 195
    Top = 192
    Width = 94
    Height = 33
    Caption = 'TRtDbCopy'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object CheckBox1: TCheckBox
    Left = 294
    Top = 99
    Width = 79
    Height = 13
    Caption = 'Mappings'
    TabOrder = 2
  end
  object RadioGroup1: TRadioGroup
    Left = 24
    Top = 88
    Width = 249
    Height = 65
    Caption = 'CopyMode'
    Columns = 2
    Items.Strings = (
      'Append'
      'Update'
      'AppendUpdate'
      'Delete'
      'Copy')
    TabOrder = 1
  end
  object Database1: TDatabase
    DatabaseName = 'TEST'
    LoginPrompt = False
    Left = 16
    Top = 256
  end
  object Table1: TTable
    DatabaseName = 'TEST'
    Left = 48
    Top = 256
  end
  object Table2: TTable
    DatabaseName = 'TEST'
    Left = 80
    Top = 256
  end
  object BatchMove1: TBatchMove
    Destination = Table2
    Mode = batCopy
    Source = Table1
    Left = 112
    Top = 256
  end
  object RtDbCopy1: TRtDbCopy
    Destination = Table2
    Mode = batCopy
    Source = Table1
    Transaction = False
    Left = 144
    Top = 256
  end
end